perm filename FNIN[206,LSP] blob sn#131455 filedate 1974-11-20 generic text, type T, neo UTF8

(DEFPROP FNIN
 (LAMBDA(L)
  (PROG	(CHAN)
	(SETQ CHAN
	      (EVAL
	       (APPEND (LIST (QUOTE INPUT) (GENSYM))
		       (LIST (CAR L))
		       (COND ((AND (NOT (ATOM (CAR L))) (NOT (ATOM (CDAR L)))) (SETQ L (CDR L)) (LIST (CAR L)))
			     (T NIL)))))
	(INC CHAN NIL)
	(SETQ L (CDR L))
   A	(COND ((ATOM (SETQ R (ERRSET (READ) NIL))) (RETURN (INC NIL T)))
	      ((MEMBER (CADAR R) L) (PRINT (EVAL (CAR R)))))
	(GO A)))
FEXPR)